home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / COMM / PPL4P10A / GET_MAIL.SS < prev    next >
Text File  |  1995-02-20  |  2KB  |  122 lines
  1. ###############################
  2. #    --- get_mail.ss ---      #
  3. # Log onto MSC BBS (TriBBS)   #
  4. # and get any NEW mail.       #
  5. ###############################
  6. # Compile with builder, ver 2 #
  7. ###############################
  8. #
  9. # define parameters to use
  10. #
  11. USER:     STRING "GUEST GUEST!"
  12. PASSWORD: STRING "GUEST!"
  13. PHONE:    STRING "1,205,880,9748!"
  14. #
  15. # Dial phone
  16. #
  17.   SETPACE  0.2
  18.   SETWAIT  5.0
  19.   PROTOCOL "A"
  20.   REPLY    "!AT!"
  21.   WAITFOR  "OK"
  22.   IFTRUE   DIAL
  23.   SAY      "Expected OK not received"
  24.   GOTO     ERROR
  25. DIAL:
  26.   SETWAIT  45.0
  27.   REPLY    "ATDT"
  28.   REPLY    PHONE
  29.   WAITFOR  "CONNECT"
  30.   IFTRUE   LOGIN
  31.   SAY      "Expected CONNECT not found"
  32.   GOTO     ERROR
  33. #
  34. # no graphics
  35. #
  36. LOGIN:
  37.   SETWAIT  30
  38.   REPLY    CR
  39.   WAITFOR  "graphics (y/N)?|LAST name:"
  40.   IF       "0" THEN  GET_NAME
  41.   IF       "1" THEN  GOT_NAME
  42.   SAY      "'graphics (y/N)?' not received"
  43.   GOTO     ERROR
  44. #
  45. # enter name
  46. #
  47. GET_NAME:
  48.   REPLY    CR
  49.   WAITFOR  "LAST name:"
  50.   IFTRUE   GOT_NAME
  51.   SAY      "'LAST name' not received"
  52.   GOTO     ERROR
  53. GOT_NAME:
  54.   REPLY    USER
  55. #
  56. # enter password
  57. #
  58.   WAITFOR  "password:"
  59.   IFFALSE  ERROR
  60.   REPLY    PASSWORD
  61. #
  62. # "more?" or "Main Menu:"
  63. #
  64. MORE:
  65.   WAITFOR  "more?|Main Menu:"
  66.   IF       "1" THEN SKIP_MAIN
  67.   IFNOT    "0" THEN ERROR
  68.   REPLY    CR
  69.   GOTO     MORE
  70. SKIP_MAIN:
  71.   REPLY    CR
  72. #
  73. # select Messages
  74. #
  75.   WAITFOR  PROMPT
  76.   IFFALSE  ERROR
  77.   REPLY    "M"
  78. #
  79. # select Your mail
  80. #
  81.   WAITFOR  PROMPT
  82.   IFFALSE  ERROR
  83.   REPLY    "Y"
  84. #
  85. # select This conference
  86. #
  87.   WAITFOR  "to Quit:"
  88.   IFFALSE  ERROR
  89.   REPLY    "T"
  90. #
  91. # select New mail
  92. #
  93.   WAITFOR  "Messages:"
  94.   IFFALSE  ERROR
  95.   REPLY    "N!"
  96. #
  97. # catch with ASCII
  98. #
  99.   RECEIVE  "NEWMAIL"
  100. #
  101. # say goodbye
  102. #
  103.   QUIET    0.5
  104.   REPLY    "G!"
  105.   SAY      "Hanging up..."
  106.   REPLY    CR
  107.   HALT
  108. #
  109. # error exit
  110. #
  111.  ERROR: SAY " "
  112.   SAY "Error !"
  113.   STATUS
  114.   HALT
  115. #
  116. # common strings
  117. #
  118. PROMPT: STRING  "?]?"
  119. CR:     STRING  "!"
  120. #
  121.   END
  122.